home *** CD-ROM | disk | FTP | other *** search
/ The Uninvited Press Kit / THE UNINVITED.iso / pc / program.dxr / Internal_22_Choose RollMember.ls < prev    next >
Encoding:
Text File  |  2008-12-30  |  1.9 KB  |  73 lines
  1. property pMemberNormal, pMemberRollover, gowhere, soundMember, soundChannel, loops, pCursorChange, pCursorChoice, pSpriteMember
  2.  
  3. on getBehaviorDescription me
  4.   return "Rollover, Sound and  goto Marker" & RETURN & RETURN & "Just add to Sprite and fill-in Properties"
  5. end
  6.  
  7. on getBehaviorTooltip me
  8.   return "Use with any sprite member."
  9. end
  10.  
  11. on getPropertyDescriptionList me
  12.   xlist = [:]
  13.   addProp(xlist, #gowhere, [#comment: "Navigate Where?", #format: #marker, #default: #bitmap])
  14.   addProp(xlist, #soundMember, [#comment: "Sound to play", #format: #sound, #default: VOID])
  15.   addProp(xlist, #soundChannel, [#comment: "Sound channel", #format: #integer, #default: 3, #range: [2, 3, 4]])
  16.   addProp(xlist, #loops, [#comment: "How many loops:", #format: #integer, #default: 1, #range: [1, 2, 3, 4, 5, 6, 7, 8]])
  17.   addProp(xlist, #pCursorChoice, [#default: 1, #format: #boolean, #comment: "Do you want a cursor change?"])
  18.   addProp(xlist, #pCursorChange, [#format: #cursor, #comment: "Please choose cursor", #default: 280])
  19.   addProp(xlist, #pSpriteMember, [#comment: "Type in which sprite number will roll:", #format: #integer, #default: VOID])
  20.   return xlist
  21. end
  22.  
  23. on spriteRoll
  24.   rollSprite = pSpriteMember
  25.   if rollSprite > 0 then
  26.     sprite(rollSprite).memberNum = sprite(rollSprite).memberNum + 1
  27.   else
  28.     nothing()
  29.   end if
  30. end
  31.  
  32. on spriteLeave
  33.   unrollSprite = pSpriteMember
  34.   if unrollSprite > 0 then
  35.     sprite(unrollSprite).memberNum = sprite(unrollSprite).memberNum - 1
  36.   else
  37.     nothing()
  38.   end if
  39. end
  40.  
  41. on changeCur
  42.   if pCursorChoice = 1 then
  43.     cursor(pCursorChange)
  44.   else
  45.     cursor(0)
  46.   end if
  47. end
  48.  
  49. on playMySound me
  50.   soundStatus = sound(soundChannel)
  51.   if soundStatus = 4 then
  52.     sound(soundChannel).play()
  53.   else
  54.     sound(soundChannel).play([#member: soundMember, #loopCount: loops])
  55.   end if
  56. end
  57.  
  58. on mouseUp me
  59.   playMySound()
  60.   go(gowhere)
  61.   cursor(0)
  62. end
  63.  
  64. on mouseEnter me
  65.   spriteRoll()
  66.   changeCur()
  67. end
  68.  
  69. on mouseLeave me
  70.   spriteLeave()
  71.   cursor(0)
  72. end
  73.